home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 027a / dgeclc.zip / CIRCDEMO.PRG next >
Text File  |  1991-05-20  |  937b  |  36 lines
  1. *****
  2. * CIRCDEMO.PRG
  3. * Demonstration of Scan Filled Circle routine with C function
  4. *
  5. * Date:         05/07/91
  6. * Written by:   Peter M. Freese
  7. *               Pinnacle Publishing, Inc.
  8. *
  9. * This program demonstrates a circle routine that allows you to draw filled
  10. * circles on top of other screen objects in dGE.  Circles drawn with dGE's
  11. * DRAWCIRCLE() function cannot be filled unless the circle is drawn on a
  12. * blank screen region, since they are filled with the SHADE() function.
  13. * The CIRCLE() routine presented here allows circles to be drawn over other
  14. * image data, and fill somewhat faster than the DRAWCIRCLE() function.
  15. *
  16. *
  17.  
  18. local i:=49
  19.  
  20. sethires(0)
  21. inkey(0)
  22.  
  23. /* draw one that uses the flood fill (SHADE) routine */
  24. drawcircle(675,500,500,0,360,8,0,15)    
  25.  
  26. inkey(0)
  27.  
  28. /* now draw a bunch of scanned ones in CLIPPER */
  29. while i>0
  30.   circle(675,500,i*10,MOD(i-1,15)+1)
  31.   --i
  32. end
  33.  
  34. inkey(0)
  35. settext()
  36.